10 CLS
20 BSAVE"BARUKO.GFX",&H0,&H3FFF,S
30 END
40 REM DEFINE CHARS & SPRITES
50 REM BARUKO (C) 2012
60 REM UPDATE 11/2/2012
70 REM
80 COLOR,0,0:SCREEN1,2:WIDTH32
90 KEYOFF:COLOR15,1,1
100 RESTORE110:FOR A=128*8 TO 129*8-1:READ B:VPOKEA,B:NEXT A
110 DATA 251,251,251,0,127,127,127,0
120 RESTORE130:FOR A=136*8 TO 140*8-1:READ B:VPOKEA,B:NEXT A
130 DATA 15,8,4,2,7,26,98,255,248,4,2,1,255,3,7,249
140 DATA 136,133,135,128,237,237,128,255,145,17,21,21,177,177,18,252
150 RESTORE160:FOR A=144*8 TO 148*8-1:READ B:VPOKEA,B:NEXT A
160 DATA 127,255,255,252,248,248,248,252,254,254,252,248,240,255,255,127
170 DATA 254,255,255,63,31,31,31,63,127,127,63,31,15,255,255,254    
180 RESTORE190:FOR A=152*8 TO 156*8-1:READ B:VPOKEA,B:NEXT A
190 DATA 255,128,191,191,191,166,173,173,255,3,251,249,249,123,187,187
200 DATA 174,191,191,191,128,255,224,192,123,249,249,251,3,255,7,3
210 RESTORE220:FOR A=160*8 TO 164*8-1:READ B:VPOKEA,B:NEXT A
220 DATA 31,48,64,64,96,127,0,127,248,12,2,2,6,254,0,254
230 DATA 98,66,67,67,64,64,96,127,70,66,194,194,2,2,6,254
240 RESTORE250:FOR A=168*8 TO 172*8-1:READ B:VPOKEA,B:NEXT A
250 DATA 30,51,97,65,65,99,63,1,0,0,0,0,0,0,0,0
260 DATA 0,0,0,0,0,0,128,192,224,112,56,28,14,7,30,12
270 RESTORE280:FOR A=176*8 TO 180*8-1:READ B:VPOKEA,B:NEXT A
280 DATA 225,193,135,3,1,53,37,50,37,53,0,1,3,135,193,225
290 DATA 135,131,225,192,128,92,72,72,72,72,0,128,192,225,131,135
300 RESTORE310:FOR A=184*8 TO 188*8-1:READ B:VPOKEA,B:NEXT A
310 DATA 225,193,135,3,1,53,37,50,37,53,0,1,3,135,193,225
320 DATA 135,131,225,192,128,92,72,72,72,72,0,128,192,225,131,135
330 REM SPRITES
340 RESTORE510:FOR S=0 TO 34:A$="":FOR F=1 TO 32:READ A:A$=A$+CHR$(A):NEXT:SPRITE$(S)=A$:NEXT
350 RESTORE1220:FOR S=35 TO 38:A$="":FOR F=1 TO 32:READ A:A$=A$+CHR$(A):NEXT:SPRITE$(S)=A$:NEXT
360 RESTORE1310:FOR S=39 TO 42:A$="":FOR F=1 TO 32:READ A:A$=A$+CHR$(A):NEXT:SPRITE$(S)=A$:NEXT
370 RESTORE1430:FOR I=256TO767:READA$
380 VPOKEI,VAL("&H"+A$):NEXTI
390 RESTORE1760:FOR I=776TO983:READA$
400 VPOKEI,VAL("&H"+A$):N,C0,C0,C0,FE,00,C6,EE,FE,FE,D6,C6,C6,00 ^& C6,E6,F6,FE,DE,CE,C6,00,7C,C6,C6,C6,C6,C6,7C,00 0 FC,C6,C6,C6,FC,C0,C0,00,7C,C6,C6,C6,DE,CC,76,00 ʠ: FC,C6,C6,CE,F8,DC,CE,00,78,CC,C0,7C,06,C6,7C,00  D 7E,18,18,18,18,18,18,00,C6,C6,C6,C6,C6,C6,7C,00 6N C6,C6,C6,EE,7C,38,10,00,C6,C6,D6,FE,FE,6C,44,00 lX C6,EE,7C,38,7C,EE,C6,00,66,66,66,3C,18,18,18,00 b FE,0E,1C,38,70,E0,FE,00,F8,C0,C0,C0,C0,C0,F8,00 ءl 00,80,40,20,10,08,00,00,F8,18,18,18,18,18,F8,00 v 00,00,20,50,88,00,00,00,00,00,00,00,00,00,00,F8   UKO.GFX",  ,?,S )  F(  DEFINE CHARS & SPRITES \2  BARUKO (C) 2012 s<  UPDATE 11/2/2012 yF  P ,,:,:  Z :,, Àd n : A  : B:A,B: A n  251,251,251,0,127,127,127,0 
x  : A  : B:A,B: A >  15,8,4,2,7,26,98,255,248,4,2,1,255,3,7,249   136,133,135,128,237,237,128,255,145,17,21,21,177,177,18,252   : A  : B:A,B: A   127,255,255,252,248,248,248,252,254,254,252,248,240,255,255,127 0  254,255,255,